www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admincp\D_admin_acticle.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE4 { color: #FFFFFF; font-weight: bold; } --> </style> <% biao="[ND_prod_class]" biao2="[ND_prod]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and find_dataw(lanmu_taba,rs44g("id"),3)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if function next_cen(pid_list,deepth) set rs=server.CreateObject("adodb.recordset") pppcid="-123" if pid_list<>"" then ppplista=split(pid_list,",") ppplistaubd=ubound(ppplista)-1 pppcid=ppplista(ppplistaubd) end if rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1 if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa)) else p_id=0 end if do while not rs.eof pid_list222=rs("parent_id_list")&","&rs("id")&"," deepth222=rs("deepth")+1 set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1 if rs2.eof then if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa-1)) else p_id=0 end if if p_id=0 then p_id=-1 'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf %> <option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(request("classid")) then response.write "selected"%>> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> </option> <% if not rs.eof then rs.movenext if rs.eof or rs.bof then 'response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function else need_benji_next=1 end if else 'response.write "<level0 id="""&rs("id")&""" parentTypeID=""" 'if deepth=0 then response.write "-1" else response.write p_id 'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf %> <option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(request("classid")) then response.write "selected"%>> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> </option> <% call next_cen(pid_list222,deepth222) if not rs.eof then rs.movenext need_benji_next=1 if rs.eof or rs.bof then 'if deepth<>0 then response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function end if end if if need_benji_next=0 then exit do end if need_benji_next=0 loop end function %> <br /> <div id="l_lists" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; width:730px"> <form action="D_admin_acticle.asp" method="post" name="aa" id="aa" target="_self"> <table width="724" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="425" height="23">搜索: <input name="keyword" /> 条件: <select name="qrr"> <option value="1" selected="selected">产品名称</option> <option value="2">录 入 者</option> <option value="3">不限条件</option> </select> <input type="hidden" value="<%=sys_content_type%>" name="sys_content_type" /> <input type="submit" value="搜索" /> </td> <td width="274">限定产品分类: <select name="classid" onchange="document.all.aa.submit();"> <option value="all">---所有产品---</option> <% set rseee=server.CreateObject("adodb.recordset") rseee.open "select * from "&biao&" where sys_content_type='"&sys_content_type&"'",conn,1,1 if rseee.eof then %> <script language="javascript"> alert("没有分类,请先添加分类"); history.go(-1); </script> <% end if call next_cen("",0) %> </select> </td> </tr> <tr> <td height="30" colspan="2" align="center"><table width="641" height="18" border="1" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="157" align="center" bgcolor="#EDF8FE"><a href="D_admin_acticle.asp?iszhuanti=1&sys_content_type=<%=sys_content_type%>">选择专题产品</a></td> <td width="96" align="left" bgcolor="#EDF8FE"><a href="D_admin_acticle.asp?isshenhed=1&sys_content_type=<%=sys_content_type%>">选择待审产品</td> <td width="380" align="left" bgcolor="#EDF8FE"><a href="D_admin_acticle.asp?paixu=1&sys_content_type=<%=sys_content_type%>">按产品排序数排列产品列表</td> </tr> </table></td> </tr> </table> </form> </div> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <% if sys_content_type="" then %> <script language="javascript"> alert("url参数sys_content_type不能为空"); </script> <% response.end end if %> <script language="javascript"> function delact(id){ if (confirm("确认删除?")==1){ self.location="D_del_acticle.asp?id="+id+"&sys_content_type=<%=sys_content_type%>"; } } function CheckAll(){ var dd=parseFloat(document.getElementById("len1").value); for(var i=1;i<=dd;i++) { var dd1=document.getElementById("chec"+i); dd1.checked=true; } } </script> <br /> <form action="D_piliang.asp" method="post" name="ww" id="ww"> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="3%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td> <td width="5%" height="27" align="center" class="adminth"><span class="STYLE4">选择</span></td> <td width="10%" align="center" class="adminth"><span class="STYLE4">产品排序数</span></td> <td width="12%" align="center" class="adminth"><span class="STYLE4">产品小图</span></td> <td width="34%" align="center" class="adminth"><span class="STYLE4">产品名称</span></td> <td width="13%" align="center" class="adminth"><span class="STYLE4">操作</span></td> <td width="4%" align="center" class="adminth"><span class="STYLE4">审核</span></td> <td width="6%" align="center" class="adminth"><span class="STYLE4">整理日期</span></td> <td width="13%" align="center" class="adminth"><span class="STYLE4">录 入 者</span></td> </tr> <% CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if maxperpage=15 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr") sql2="" if request("classid")<>"all" and request("classid")<>"" then set Rs33=server.CreateObject("adodb.recordset") sql="select cstr(parent_id_list) from "&biao&" where id="&request("classid") Rs33.open sql,conn,1,1 sspa=rs33(0)&","&request("classid")&"," sql2=" and (classid='"&request("classid")&"' or classid in (select cstr(id) from "&biao&" where parent_id_list like '%"&sspa&"%' ) or classid in (select cstr(id) from "&biao&" where parent_id='"&request("classid")&"') ) " end if if request("keyword")<>"" then if request("qrr")="1" then sql2=" and title like '%"&trim(request("keyword"))&"%' " else if request("qrr")="2" then sql2=" and username like '%"&trim(request("keyword"))&"%' " else sql2=" and username like '%"&trim(request("keyword"))&"%' or title like '%"&trim(request("keyword"))&"%' " end if end if end if if request("isshenhed")<>"" then sql2=" and is_shenhe='0' " end if if request("iszhuanti")<>"" then sql2=" and SpecialID<>'no' " end if if request("paixu")<>"" then od22=" order by clng(orders) asc " else od22=" order by id desc" end if set Rs=server.CreateObject("adodb.recordset") sql="select * from "&biao2&" where sys_content_type='"&sys_content_type&"' "&sql2&" "&od22 Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to MaxPerpage if Rs.eof then exit for %> <tr bgcolor="#EDF8FE"> <td width="3%" height="27" align="center"><%=rs("id")%></td> <td width="5%" height="27" align="center"> <input type="checkbox" name="chec<%=ni%>" id="chec<%=ni%>" value="1" /> <input type="hidden" name="chec_id<%=ni%>" id="chec_id<%=ni%>" value="<%=rs("id")%>" /> </td> <td width="10%" align="center"><%=rs("orders")%></td> <td width="12%" align="center"> <img src="<%=rs("small_pic")%>" width="70" /></td> <td width="34%" align="center"><%=left(rs("title"),34)%></td> <td width="13%" align="center"> <a href="D_edit_acticle.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">编辑</a> <a href=# onclick="delact('<%=rs("id")%>');">删除</a> </td> <td width="4%" align="center"> <%if rs("is_shenhe")="1" then%> √ <%else%> X <%end if%> </td> <td width="6%" align="center"><%=rs("WriteTime")%></td> <td width="13%" align="center"><%=rs("username")%></td> </tr> <% Rs.movenext next else %> <tr><td colspan="9" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr bgcolor="#EDF8FE"> <td colspan="9"> <input type="hidden" id="len1" name="len1" value="<%=ni-1%>" /> <input type="hidden" id="sys_content_type" name="sys_content_type" value="<%=sys_content_type%>" /> <input type="hidden" id="pageb" name="pageb" value="<%=request("page")%>" /> <input type="hidden" id="classidb" name="classidb" value="<%=request("classid")%>" /> <input class="Button" type="button" name="chkall" value="全选" onClick="CheckAll()"> 管理选项: <select name="dow"> <option value="0">请选择操作选项</option> <option value="批量置为最新">批量置为最新</option> <option value="取消最新">取消最新</option> <option value="批量推荐">批量推荐</option> <option value="取消推荐">取消推荐</option> <option value="批量审核">批量审核</option> <option value="取消审核">取消审核</option> <option value="更新时间">更新时间</option> <option value="批量删除">批量删除</option> </select> <input class="Button" type="submit" name="Submit2" value="执行操作" onclick="return confirm('您确定执行该操作吗?')"> </td> </tr> <tr> <td colspan="9" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> </table> </form> </div> <script language=javascript> AJAXfade(1,'l_list'); AJAXfade(1,'l_lists'); </script> <% AJAXcloseLoader() %>